Fortran do 语句

integer counter
integer, parameter :: lines = 10
! counter <= lines 重复
do counter = 1, lines, 1
  ...
end do
! 如果增值是负数，自动改成 >= lines 重复
do counter = 10, 1, -1
  ...
end do
! 初值、上限、增值在循环中可以改变而无作用；
! 计数器不能改变